home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / ADLIST.SRC < prev    next >
Text File  |  1990-11-04  |  5KB  |  207 lines
  1. ;\|
  2. ;ADLIST.SRC     Translated from ADLIST.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;PATLIST  01:01:18 PM  11/ 2/90                    |
  4. define(PAGE|N|5|0|)
  5. define(DATE.TIME.FLD|A|46||)
  6. define(TOT.RECS|N|8|0|)
  7. define(CHG.TIME|T|8||)
  8. define(DOC|N|1||)
  9. define(CHG.DATE|D|10||)
  10. define(STDDAYS|A|12||)
  11. define(STDMONTH|A|12||)
  12. define(STDYEAR|A|6||)
  13. define(STDAYH|A|4||)
  14. define(AM.PM|A|2||)
  15. define(TIME.STRG|A|10||)
  16. define(PG.STRG|A|5||)
  17. define(SELECT.FLD.F1|A|22||)
  18. define(SELECT.FLD.T1|A|22||)
  19. define(SELECT.FLD.F2|D| 10||)
  20. define(SELECT.FLD.T2|D| 10||)
  21. define(SELECT.FLD.F3|A|  1||)
  22. define(SELECT.FLD.T3|A|  1||)
  23. define(SELECT.FLD.F4|A|  1||)
  24. define(SELECT.FLD.T4|A|  1||)
  25. define(TOT.FIELD6|N|  8|0|)
  26. define(TOT.FIELD11|N|  1|0|)
  27. define(TOT.FIELD15|N|  8|0|)
  28. clrscr
  29. clrlne(1|25)
  30. open(PATIENT||0|EXIT)
  31. trap(J|G|DOB)
  32. trap(q|g|exit)
  33. gosub GET.DATE
  34. mount(SELECT|S||)
  35. enter(SELECT.FLD.F1||||||||)
  36. enter(SELECT.FLD.T1||||||||)
  37. enter(SELECT.FLD.F2||||||||)
  38. enter(SELECT.FLD.T2||||||||)
  39. enter(SELECT.FLD.F3|" MF"|||Y|Y|N|||N)
  40. enter(SELECT.FLD.T3|" FM"|||Y|Y|N|||N)
  41. enter(SELECT.FLD.F4|" YNX"|||Y|Y|N|||N)
  42. enter(SELECT.FLD.T4|" YNX"|||Y|Y|N|||N)
  43. enter(DOC|" 1234"|||N|Y|N|||N)
  44. pchr(P|10)
  45. pchr(P|11)
  46. pchr(P|4)
  47. pchr(P|1)
  48. trap(P|G|TOF)
  49. mount(REPORT|R|A|)
  50. pset(128|66|60)
  51. trap(I|G|FINI)
  52. ADDRESS1 = (SELECT.FLD.F1)
  53. find(G|ADDRESS1|NO.RECS|)
  54. PRT.REC:
  55. if SELECT.FLD.F1 <> ("") then if SELECT.FLD.F1 > (ADDRESS1) goto RD.NEXT
  56. if SELECT.FLD.T1 <> ("") then if SELECT.FLD.T1 < (ADDRESS1) goto RD.NEXT
  57. if SELECT.FLD.F2 <> (0) then if SELECT.FLD.F2 > (DATE.OF.BIRTH) goto RD.NEXT
  58. if SELECT.FLD.T2 <> (0) then if SELECT.FLD.T2 < (DATE.OF.BIRTH) goto RD.NEXT
  59. if SELECT.FLD.F3 <> ("") then if SELECT.FLD.F3 > (SEX) goto RD.NEXT
  60. if SELECT.FLD.T3 <> ("") then if SELECT.FLD.T3 < (SEX) goto RD.NEXT
  61. if SELECT.FLD.F4 <> ("") then if SELECT.FLD.F4 > (DISPENSING) goto RD.NEXT
  62. if SELECT.FLD.T4 <> ("") then if SELECT.FLD.T4 < (DISPENSING) goto RD.NEXT
  63. if DOC <> (0) then if DOCTOR <> (DOC) goto RD.NEXT
  64. pfmt(6||||)
  65. TOT.RECS = (TOT.RECS + 1)
  66. RD.NEXT:
  67. find(N|PATIENT |FINI)
  68. if SELECT.FLD.T1 > (ADDRESS1) goto FINI
  69. goto PRT.REC
  70. FINI:
  71. pfmt(5||||)
  72. pfmt(8||||)
  73. pblnk(2)
  74. pfmt(7||||)
  75. trap(P|D|)
  76. ptof
  77. run("RECMENU")
  78. TOF:
  79. PAGE = (PAGE + 1)
  80. pfmt(1||||)
  81. pfmt(2||||)
  82. pfmt(3||||)
  83. pblnk(1)
  84. pfmt(4||||)
  85. pfmt(5||||)
  86. ret
  87. GET.DATE:
  88. time(CHG.TIME|G)
  89. date(CHG.DATE|G)
  90. AM.PM = ("AM")
  91. if CHG.TIME > (43199) doO
  92. {
  93. AM.PM = ("PM")
  94. if CHG.TIME > (46799) then CHG.TIME = (CHG.TIME - 43200)
  95. }
  96. TIME.STRG =mid(CHG.TIME|1|8|)
  97. STDDAYS =day(CHG.DATE)
  98. STDMONTH =xmt(CHG.DATE)
  99. STDAYH =mid(CHG.DATE|4|2|)
  100. STDYEAR =mid(CHG.DATE|7|4|)
  101. PG.STRG = (PAGE)
  102. DATE.TIME.FLD = (STDDAYS+STDMONTH+STDAYH+STDYEAR+TIME.STRG+AM.PM)
  103. ret
  104. NO.RECS:
  105. pmsg("There are no records in the PATIENT  file "|1|24|Y|||)
  106. EXIT:
  107. run("RECMENU")
  108. DOB:
  109. run("DOB")
  110. \R REPORT  
  111.                                            PATLIST - Database File Listing for: PATIENT
  112.                                      &
  113.                                                         Page # &
  114. PATIENT.NAME                 ADDRESS1                AREA                  DATE.OF.BIRTH  DISPENSING   DOCTOR
  115. ---------------------------  ----------------------  -------------  ---  ----------  --------------  --------------
  116. &                            &                      &                      &               &           &
  117. Total number of records printed: &
  118.                                                                                      &
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  
  140.  
  141.  
  142.  
  143.  
  144.  
  145.  
  146.  
  147.  
  148.  
  149.  
  150.  
  151.  
  152.  
  153.  
  154.  
  155.  
  156.  
  157.  
  158.  
  159. \
  160. DATE.TIME.FLD
  161. PAGE
  162. PATIENT.NAME
  163. ADDRESS1
  164. AREA
  165. DATE.OF.BIRTH
  166. DISPENSING
  167. DOCTOR
  168. TOT.RECS
  169. TOT.FIELD6
  170. \
  171. \STSELECT  
  172.  Selection screen for PATLIST - Database File Listing for: PATIENT
  173. ================================================================================
  174.  ADDRESS
  175.  FROM- &                           ENTER BLANKS HERE FOR FULL LISTING OR EXACT
  176.  THRU- &                           START AND FINISH NAMES.
  177.  
  178.  DATE.OF.BIRTH
  179.  FROM- &          BLANKS FOR FULL LISTING
  180.  THRU- &
  181.  
  182.  SEX
  183.  FROM- & IF ALL MALE ENTER M & M - MUST BE CAPITAL -OTHERWISE F & M (NOT M & F )
  184.  THRU- &
  185.  
  186.  DISPENSING
  187.  FROM- & NYX (CAPITALS) ALL = BLANK
  188.  THRU- &
  189.  
  190.  DOCTOR
  191.        & 1234 OR BLANK IF YOU WANT ALL DOCTORS
  192.  
  193. THIS PROGRAM WILL ALWAYS LIST OUT IN ORDER OF ADDRESS - IF YOU WANT ORDER
  194. IN DATE OF BIRTH PRESS F2.
  195.  
  196. \
  197. SELECT.FLD.F1
  198. SELECT.FLD.T1
  199. SELECT.FLD.F2
  200. SELECT.FLD.T2
  201. SELECT.FLD.F3
  202. SELECT.FLD.T3
  203. SELECT.FLD.F4
  204. SELECT.FLD.T4
  205. DOC
  206. \
  207.